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00159% * 
GOLS9G * NOW StT uP 4 CCb'S TO INSURE INITIALIZE CLEARS JOLD poINIER 
0uU16000 U740 (9380 O80C LNJ $B19<SET4 
OVloOl | x AUVANCE INPUT NeXT STAT POINTER A COUPLE OF TIMES 
UO01O0g OF74e F380 VTFI LNG $b61_9<ADV2 
GUl603 ei * NOW GIVE CHANNEL INITIALIZE 
001604 0744 (800 1562 R49 <CONT7 CHANNEL CONTROL 
001605 U746 C380 1173 Cho $B49<CGSCH © MODIFY FOR CHANNEL 
VUL006 U7l4s 6070 8000 lo =Z*0000"* s=$R4 
a O74A G054 
001607 U74n O703 bIUT >S+é+$AF 
VL1L600 O74C F386 125C LN | $87 < ERROR curt ZSTAN CUNT NAK® ED 
OUL60O¥Y O74 C380 1205 LING $64e<DL Aas 
UOlolY .* aa | * USE OTHER SIDE UF Line TO BLOCK REA aa AREA + CHECK 
OVlell 750 bBFOO 14CD STK $R3e<TP 
VOl6lZ U752 3F20 | MLV SR33=x" 208 
OUlo13 &753 bBATO OEOO ADD $R3e=Z2*OEOU! eee | | 
GU1614 0755 bFOG U75F OTR SR39<CADD ADDRESS OF START OF CCB AREA 
OUL615 O757 BH%800 14CD LOR dK39<TPR ae i 
UVlolo C759 8B53 Lic =$K39=2*0001 9 GET OTHER SIbe OF LINE 
a G75A U0Ul 
GUlol7 | x | — 
OVLO1S U7>op 9360 1098 LNJ bH1e<RKDATA BLOCK READ 
001619 U75b 2BAA ie <RIo | RETURN BUFFER 
OUl620 U7?5E 0020 eee DC X#208 20 BYTE RANGE 
UYlo2l Gor QOGO CADD b¢C Q ADDRESS 
po rese O7o00 0000 bE Q EVEN BYTE BOUNDRY 
o2s 
VOlLo24 coo * CHECK CONTROL BYTES WERE CLEARED 
CUlo25 O761 ICFC LDV $Rl ozo 
UVlb260 Ufog 2CbS | ; LDV $R2s =5 2 7 
UVV1627 O763 UOAO 2BAA LUP . LbH $R5o<RTBe$K2 GET CONTROL BYTE 
UUlo2s UlodS 5903 beZ SR5_9>LUP1 BRANCH IF GOOQu 
VUL629 U766O F360 1L25C LNG SH7 s<ERRUR CHAN INI Te DIUN'T RESET VATA POINTERS IN LR 5 
OUlL630 U7o% ZEO’ LUP 1 ADV — Kes=8 SET FOR NEXT CONTROL BYTE 
O0O1L631 U769 IL7TFA bINC $k1»>LUP DO FOR NEXT 
Mie O76A wb800 14CD LDR SR39<TPR GET BACK TESTcD SUBCHANNEL 
o3. * 
oeicae * CHECK INPUT NEAT STATUS WILL BE NAK*ED AFTER CHANNEL INITIALIZE 
6: * 
001636 O76C C800 L55F LUK R49 <CONTS 
OUL6O37 O?fok C360 1173 Liv $864 9<CGSCH | es nein 7 
O0U1638 ae ae lv =$ROV=HKY GIVE INPUT NEAT STATUS CUMMAND 
4 
VOlO39 OFfe O763 | blOF r»$+2+SAF SHOULD BE NAK* ED 
001640 O773 F360 125C LN $67 9<ERROR COMMAND WASNV]T NAKeED 
Note G775 UFO7 NOP >ECUZ 
64, * 
001643 ee * SET UP 4 CCb*'S AGAIN TO CHECK LOAD POINTER WAS RESET 
001644 U77o 9380 O8DC ECO3 Lived $619<SETS 
001645 OU778 9386 O7F6 LNG $61 9<CHKRING CHECK STATUS POINTER IS CORRECT 
eee O77A 9380 O7FI LNJ S$b1le<ADV2 ADVANCE POINTER 2 
6 % 
Borors i TEST RESET CCB LIST COMMAND 
04% 
O0Olo5U G7T7TC OFB1 0002 ECO2 b LE CO4 SET DAIA BUFF POINTER#S NON ZERO 
VYl6O51l GT7E O7CO | ; DC <OTRT | 
OUlo52 O77F C800 1562 tCU4 LOR $R49<CONT7 CHANNEL CONTRUL 
001653 O781 C380 1173 : Ling $64 <CGSCH MODIFY FOR CrANNEL 
0016054 G783 8070 O100 10 s=ZYULUOF g=$R4 RESET CCo S [ 
0785 054 oe , 
001655 O786 703 bIOT Aedes | | | 
001056 OU787 F380 125¢ Liv $B 7 9<ERROR COMMAND WAS NaKtED 
sine : SET UP n CC's AGAIN TO CHECK IF CCB RESET WORKS 
69% ; 
OOL059 O78G 9380 YBDC Livd $6b19<SET4 SET UP 4 CCbto : 
DOL eea O7’s 9360 UTF6 LNJ Sb 1» <CHKKNG CHECK INPUT STAT POINTER JI9 RESET 
Q166 * 
Borecs * NOW CHECK CHANNeL ECT AKEA WAS CLEARED BY INITIALIZE 
01663 * 
V01664 O78 C380 1177 LING oe 
001665 O78F OFB8e2 bo ee - 
VOl666 O790 0100 be XF 1008 RESET Cs LISI 
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